home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / sh0x / sh04a.d64 / listing 10.d (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1995-03-30  |  180 b   |  6 lines
  1. 20000 REM LEERE SAETZE AUS EINER DATEI ELIMINIEREN -----------------------------
  2. 20020 I=0: REM ZAEHLER AUF NULL
  3. 20030 I=I+1:IFI=SZTHENRETURN
  4. 20040 :IFD$(I)=""THEND$(I)=D$(SZ):SZ=SZ-1:GOTO40
  5. 20050 GOTO20030
  6.